home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / DCLAP 6d / dclap6d / DBio.more / USeqMail.p < prev    next >
Text File  |  1996-07-05  |  4KB  |  141 lines
  1. { USeqMail.p }
  2. { Copyright 1992 by d.g.gilbert, for SeqApp }
  3.  
  4.  
  5. UNIT USeqMail;
  6.  
  7. INTERFACE
  8.  
  9. USES
  10.     Types, Memory, QuickDraw, ToolUtils, OSUtils, Resources, Packages, 
  11.     Files, Printing, TextEdit,
  12.     Controls, Aliases, Editions, Events, Notification, 
  13.     AppleEvents, Processes, Balloons,
  14.     
  15.     MacAppTypes, UPascalObject, UObject, 
  16.     UEventHandler, UList, UAdorners, UStream, UGeometry,
  17.     UEvent, UCommand, UCommandHandler,
  18.     UView,  UBehavior, UTEView, UTECommands,
  19.     UMacAppUtilities, UPatch, UFailure, UMacAppGlobals,
  20.     
  21.     UFile, UApplication,
  22.     UPrintHandler, UPrinting,
  23.     UWindow, UMenuMgr, UMemory, UErrorMgr,
  24.     
  25.     UControl, UDialog, UPopup,
  26.     UDocument, UFileHandler, UFileBasedDocument,
  27.     
  28.     UViewServer, UGridView,
  29.     
  30.     {$U $$Shell(UStd)UStandard.p } UStandard, 
  31.     {$U $$Shell(UStd)UApp.p } UApp, 
  32.     {$U $$Shell(UText)UTextDoc.p } UTextDoc,
  33.     {$U $$Shell(UStd)UPlot.p } UPlot, 
  34.     {$U $$Shell(UTCP)UTCP.p } UTCP, 
  35.     {$U $$Shell(UTCP)USMTP.p } USMTP, 
  36.     {$U $$Shell(UTCP)UPOP.p } UPOP, 
  37.  
  38.     USequence,
  39.     USeqReader,
  40.     USeqDoc;
  41.     
  42. TYPE
  43. {----                            
  44.     THiddenText    = OBJECT (TEditText)
  45.         PROCEDURE THiddenText.DoSubstitution(VAR theText: Str255); OVERRIDE;
  46.         PROCEDURE THiddenText.StopEdit; OVERRIDE;
  47.         END;
  48. ----}
  49.  
  50.     TMailPrefWindow    = OBJECT (TPrefWindow)
  51.         fFrom, fSMTPHost, fPOPAddress: TPrefEditText;
  52.         fPassword: THiddenText;
  53.         fKeepPass: TCheckBox;
  54.         
  55.         PROCEDURE TMailPrefWindow.IMailPrefWindow;
  56.         PROCEDURE TMailPrefWindow.SetGlobals;  
  57.         PROCEDURE TMailPrefWindow.ModalDialog;  
  58.         PROCEDURE TMailPrefWindow.SetPrefID; OVERRIDE; 
  59.         END;
  60.  
  61.  
  62.     TSendmailWindow    = OBJECT (TPrefWindow)
  63.         fSendmailView    : TDlogTextView; 
  64.         fTo, fSubject: TEditText;
  65.         fStatus            : TStaticText;
  66.         fUnlockTexts: TCheckBox;        
  67.         fCopySelf        : TCheckBox;
  68.         
  69.         PROCEDURE TSendmailWindow.ISendmailWindow;
  70.         PROCEDURE TSendmailWindow.OpenWindow;
  71.         
  72.         PROCEDURE TSendmailWindow.MakeSMTP( theTo, theSubject, theCCopy: Str255; 
  73.                                                             theMessage: Handle; isTEHandle: Boolean); 
  74.         PROCEDURE TSendmailWindow.Sendit; 
  75.         PROCEDURE TSendmailWindow.UnlockTexts;
  76.         PROCEDURE TSendmailWindow.RelockTexts;
  77.         PROCEDURE TSendmailWindow.DoEvent(eventNumber: EventNumber; 
  78.                                             source: TEventHandler; event: TEvent); OVERRIDE; 
  79.         PROCEDURE TSendmailWindow.SetPrefID; OVERRIDE; 
  80.         END;
  81.                 
  82.                 
  83.  
  84.     TPopmailWindow    = OBJECT (TPrefWindow)  
  85.         fMailView    : TDlogTextView; 
  86.         fFrom, fSubject: TEditText;
  87.         fStatus        : TStaticText;
  88.         fDelBut, fLastBut, fNextBut, fSaveBut: TButton;    
  89.         fDelCheck    : TCheckBox;
  90.         fCountTxt    : TStaticText;
  91.         fPop            : TObject; {TObject == TPOP, kept private from interface}
  92.         fMsgNum        : Integer;
  93.         
  94.         PROCEDURE TPopmailWindow.IPopmailWindow;
  95.         FUNCTION  TPopmailWindow.FetchOne(theMsgNum: integer): Boolean; 
  96.         PROCEDURE TPopmailWindow.OpenPop; 
  97.         PROCEDURE TPopmailWindow.SaveMail; 
  98.         PROCEDURE TPopmailWindow.DoEvent(eventNumber: EventNumber; 
  99.                                             source: TEventHandler; event: TEvent); OVERRIDE; 
  100.         PROCEDURE TPopmailWindow.Close; OVERRIDE;
  101.         PROCEDURE TPopmailWindow.SetPrefID; OVERRIDE;  
  102.         END;
  103.  
  104.  
  105. VAR
  106.         { mail prefs }
  107.     gTCPIsInstalled: Boolean;
  108.     gMyMailAddress: Str255;
  109.     gSMTPHost            : Str63;
  110.     gMyPOPAddress    : Str255;
  111.     gPassword            : Str63;
  112.     gMailerID            : Str63;
  113.  
  114. PROCEDURE InitializeMailPrefs;
  115. PROCEDURE OpenMailPref;
  116. PROCEDURE OpenCheckmail;
  117.  
  118. PROCEDURE MailTo( aCommand: Integer);
  119. PROCEDURE MailWithSeq( aCommand: Integer; aSeq: TSequence);
  120. PROCEDURE MailWithSeqList( aCommand: Integer; aSeqList: TSeqList);
  121.  
  122. {--------
  123. PROCEDURE OpenSendmail;
  124. PROCEDURE    OpenEMBLFetch;
  125. PROCEDURE    OpenUHServer;
  126. PROCEDURE    OpenGBFetch;
  127. PROCEDURE OpenBugMail;
  128.  
  129. PROCEDURE OpenGBBlast( aSeq: TSequence);
  130. PROCEDURE OpenGBFasta( aSeq: TSequence);
  131. PROCEDURE OpenGeneID( aSeq: TSequence);
  132. PROCEDURE OpenGrail( aSeqList: TSeqList);
  133. -------}
  134.  
  135.         
  136. IMPLEMENTATION
  137.  
  138.         {$I USeqMail.inc.p}
  139.  
  140. END.
  141.